home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Games Galore!
/
Shareware Games Galore!.iso
/
arcade
/
gameser9
/
sesame.bas
< prev
next >
Wrap
BASIC Source File
|
1983-02-19
|
4KB
|
176 lines
10 KEY OFF:CLS
20 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
30 PRINT"░┌───────────────────────────────────┐░"
40 PRINT"░│ │░"
50 PRINT"░│ 5008-A.BAS │░"
60 PRINT"░│ SESAME │░"
70 PRINT"░│ │░"
80 PRINT"░│ │░"
90 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF │░"
100 PRINT"░│ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ │░"
110 PRINT"░│ █ █ █ █ █ █ │░"
120 PRINT"░│ █ █▄▄▄█ █ █ █ │░"
130 PRINT"░│ █ █ █ █ █ │░"
140 PRINT"░│ ▄▄█▄▄ █ █▄▄▄▄ █▄▄▄█ │░"
150 PRINT"░│ │░"
160 PRINT"░│ International PC Owners │░"
170 PRINT"░│ │░"
180 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
190 PRINT"░│ │░"
200 PRINT"░└───────────────────────────────────┘░"
210 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
220 PRINT
230 PRINT " PRESS ANY KEY TO CONTINUE
240 A$=INKEY$: IF A$="" THEN 240
250 CLS
1000 KEY OFF
1010 CLS:WIDTH 40:LOCATE 10,19:PRINT "The":LOCATE 12,14:PRINT "Sesame Street":LOCATE 14,18:PRINT "Song"
1020 LOCATE 25,11,0:PRINT "Hit any key to begin"
1030 P$=INKEY$:IF P$="" GOTO 1030
1040 A$="c4"
1050 B$="C8"
1060 CLS:PRINT "Sun";
1070 PLAY "P4O4XA$+B$;"
1080 PRINT "ny ";
1090 PLAY "O3a4"
1100 PRINT "day ";
1110 PLAY "F2"
1120 PRINT "sweep";
1130 PLAY "L8F"
1140 PRINT "in' ";
1150 PLAY "G16"
1160 PRINT "the ";
1170 PLAY "A4P4"
1180 PRINT "clouds ";
1190 PLAY "O4XA$+B$;"
1200 PRINT "a";
1210 PLAY "O3A4"
1220 PRINT "way"
1230 PLAY "F1"
1240 PRINT:PRINT:PRINT
1250 PRINT "on ";
1260 PLAY "P4O4XA$+B$;"
1270 PRINT "my ";
1280 PLAY "O3a4"
1290 PRINT "way ";
1300 PLAY "F4"
1310 PRINT "to ";
1320 PLAY "f8"
1330 PRINT "where ";
1340 PLAY "g4"
1350 PRINT "the ";
1360 PLAY "a4"
1370 PRINT "air ";
1380 PLAY "b4"
1390 PRINT "is ";
1400 PLAY "O4xa$+b$;"
1410 PRINT "sweet."
1420 C$="d2"
1430 D$="d2"
1440 PLAY "XC$+D$;"
1450 PRINT:PRINT:PRINT
1460 PRINT "Can ";
1470 PLAY "c8"
1480 PRINT "you ";
1490 PLAY "d16"
1500 PRINT "tell ";
1510 PLAY "l4e-"
1520 PRINT "me ";
1530 PLAY "d4"
1540 PRINT "how ";
1550 PLAY "c4"
1560 PRINT "to ";
1570 PLAY "o3a8"
1580 PRINT "get,"
1590 PLAY "g16p4"
1600 PRINT:PRINT:PRINT
1610 PRINT "how ";
1620 PLAY "g8"
1630 PRINT "to ";
1640 PLAY "a16"
1650 PRINT "get ";
1660 PLAY "O3b4"
1670 PRINT "to ";
1680 PLAY "a4"
1690 PRINT "Ses";
1700 PLAY "g8"
1710 PRINT "a";
1720 PLAY "c8"
1730 PRINT "me ";
1740 PLAY "c8"
1750 PRINT "Street? "
1760 PLAY "c1"
1770 CLS
1780 CLS:PRINT "Come ";
1790 PLAY "P4O4XA$+B$;"
1800 PRINT "and ";
1810 PLAY "O3a4"
1820 PRINT "play! ";
1830 PLAY "F2"
1840 PRINT "Ev' ";
1850 PLAY "L8F"
1860 PRINT "ry ";
1870 PLAY "G16"
1880 PRINT "thing's ";
1890 PLAY "A4P4"
1900 PRINT "A-";
1910 PLAY "O4XA$+B$;"
1920 PRINT "O-";
1930 PLAY "O3A4"
1940 PRINT "kay."
1950 PLAY "F1"
1960 PRINT:PRINT:PRINT
1970 PRINT "Friend";
1980 PLAY "P4O4XA$+B$;"
1990 PRINT "ly ";
2000 PLAY "O3a4"
2010 PRINT "neigh";
2020 PLAY "F4"
2030 PRINT "bors ";
2040 PLAY "f8"
2050 PRINT "there, ";
2060 PLAY "g4"
2070 PRINT "that's ";
2080 PLAY "a4"
2090 PRINT "where ";
2100 PLAY "b4"
2110 PRINT "we ";
2120 PLAY "O4xa$+b$;"
2130 PRINT "meet."
2140 C$="d2"
2150 D$="d2"
2160 PLAY "XC$+D$;"
2170 PRINT:PRINT:PRINT
2180 PRINT "Can ";
2190 PLAY "c8"
2200 PRINT "you ";
2210 PLAY "d16"
2220 PRINT "tell ";
2230 PLAY "l4e-"
2240 PRINT "me ";
2250 PLAY "d4"
2260 PRINT "how ";
2270 PLAY "c4"
2280 PRINT "to ";
2290 PLAY "o3a8"
2300 PRINT "get,"
2310 PLAY "g16p4"
2320 PRINT:PRINT:PRINT
2330 PRINT "how ";
2340 PLAY "g8"
2350 PRINT "to ";
2360 PLAY "a16"
2370 PRINT "get ";
2380 PLAY "O3b4"
2390 PRINT "to ";
2400 PLAY "a4"
2410 PRINT "Ses";
2420 PLAY "g8"
2430 PRINT "a";
2440 PLAY "c8"
2450 PRINT "me ";
2460 PLAY "c8"
2470 PRINT "Street? "
2480 PLAY "c1"
2490 CLS
L